<% Dim UserName,Page_Url If Not MNBoard.FoundUser Then MNBoard.GoToErr(10) UserName=request.querystring("name") If UserName <> "" Then Page_Url = "?Name="&UserName Else Page_Url = "" End If If Trim(UserName)="" Then UserName=MNBoard.MyName If Not MNBoard.Fun.CheckName(UserName) then MNBoard.GoToErr(1) If Lcase(UserName)=lCase(MNBoard.MyName) Then MNBoard.Position=MNBoard.Position&" → 用户控制面版" MNBoard.Head "UserInfo.asp"&Page_Url,"","查看本人资料" Response.Write MNBoard.ReadSkins("用户控制面版") Else If SESSION(CacheName& "MyGradeInfo")(21)="0" Then MNBoard.GoToErr(74) MNBoard.Head "UserInfo.asp"&Page_Url,"","查看用户资料" End If ShowUserInfo() ShowUserBBS() MNBoard.Footer() Set MNBoard =Nothing Sub ShowUserInfo() Dim Caption,Content Dim Rs,Grade,UserPic,UserSex,RegIP,LastIP SET Rs=MNBoard.Execute("Select Name,Sex,Birthday,Mail,Home,IsQQpic,QQ,Pic,Pich,Picw,RegIp,LastIp,EssayNum,GoodNum,Mark,GradeID,Coin,GameCoin,BankSave,RegTime,LastTime,IsShow,IsDel,IsVip,LoginNum,Honor,Sign,Faction From[i_user]where Name='"&UserName&"' And Isdel=0") If Rs.eof then MNBoard.GoToErr(79) If Rs("IsQQpic")="1" Then UserPic="" Else UserPic="" End If IF Rs("Sex")=1 Then UserSex="男" Else UserSex="女" Grade=MNBoard.GetGradeInfo(Rs("GradeID")) Grade=split(Grade,"|") IF SESSION(CacheName& "MyGradeInfo")(42)="1" Then RegIP=MNBoard.Fun.GetSqlStr(Rs("RegIp")) LastIP=MNBoard.Fun.GetSqlStr(Rs("LastIp")) Else RegIP="保密":LastIP="保密" End If Caption="用户信息" Content="
"&_ "
"&UserPIc&"
 发送留言
"&_ "
"&_ "
基本信息
"&_ "
  • 昵称："&UserName&"
  • 性别："&UserSex&"
  • 生日："&Rs("Birthday")&"
  • 邮箱：
  • QQ："&MNBoard.Fun.GetSqlStr(Rs("QQ"))&"
  • 网站：我的网址
  • 注册时间："&Rs("RegTime")&"
  • 最后访问："&Rs("LastTime")&"
  • 注册时IP："&RegIP&"
  • 最后访问IP:"&LastIP&"
"&_ "
论坛信息
"&_ "
  • 论坛等级："&Grade(2)&"
  • 头街称号："&MNBoard.Fun.GetSqlStr(Rs("Honor"))&"
  • 论坛帮派："&MNBoard.Fun.GetSqlStr(Rs("Faction"))&"
  • 发帖总数："&Rs("EssayNum")&"
  • 精华帖数："&Rs("GoodNum")&"
  • "&MNBoard.Info(120)&"："&Rs("Coin")&"
  • 银行存款："&Rs("BankSave")&"
  • "&MNBoard.Info(122)&"："&Rs("GameCoin")&"
  • "&MNBoard.Info(121)&"："&Rs("Mark")&"
  • 登陆次数："&Rs("LoginNum")&"次
" Rs.Close MNBoard.ShowTable Caption,Content End Sub Sub ShowUserBBS() Dim Rs,I,SysInfo,ReplyInfo,NoShow NoShow=MNBoard.NoShowTopic() Set Rs=MNBoard.Execute("select Top 5 Face,BoardID,Caption,LastTime,TopicID,Name,SqlTableID from [i_Topic] where Name<>'"&UserName&"' And IsDel=0 and TopicID in (Select ReplyTopicID from [i_Bbs"&MNBoard.TB&"] where name='"&UserName&"' And IsDel=0) order by LastTime desc") Do While not Rs.Eof If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (lcase(UserName)=lcase(MNBoard.MyName) or MNBoard.MyAdmin=9) Then ReplyInfo=ReplyInfo& "
"&MNBoard.Fun.StrLeft(Rs("Caption"),50)&"
" End If Rs.MoveNext Loop Rs.Close ReplyInfo="
最近参与的主题
"&ReplyInfo&"
" Set Rs=MNBoard.Execute("select Top 5 Face,BoardID,Caption,AddTime,TopicID,Name,SqlTableID from [i_Topic] where name='"&UserName&"' And IsDel=0 order by AddTime desc") Do While not Rs.Eof If InStr(","&NoShow&",",","&Rs("BoardID")&",")=0 or (lcase(UserName)=lcase(MNBoard.MyName) or MNBoard.MyAdmin=9) Then SysInfo=SysInfo& "
"&MNBoard.Fun.StrLeft(Rs("Caption"),50)&"
" End If Rs.MoveNext Loop Rs.Close SysInfo="
最近发表的主题
"&SysInfo&"
" MNBoard.ShowTable UserName&" 帖子信息",SysInfo&ReplyInfo&"
" End Sub %>